pragma Ravenscar;

with System;
with Ada.Synchronous_Task_Control;
use Ada.Synchronous_Task_Control;
with Ada.Real_Time;
use Ada.Real_Time;
with Ada.Text_IO;
use Ada.Text_IO;
with PO;
use PO;
with DataSpec;
use DataSpec;

package WriterTask is

   task type WT(Pri : System.Priority; Cycle_Time : Natural; Id : Positive) is
      pragma Priority(Pri);
   end WT;

   WT1 : WT(8,3000000,1);

end WriterTask;
